home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-11 / butt01.zip / MSG24.PRG < prev    next >
Text File  |  1993-01-04  |  786b  |  30 lines
  1. *:*********************************************************************
  2. *:
  3. *:        Program: MSG24.PRG
  4. *:
  5. *:         System: MIS Consulting
  6. *:         Author: Charles Alan Butler
  7. *:      Copyright (c) 1989, Charles Alan Butler
  8. *:  Last modified: 05/16/89     18:55
  9. *:
  10. *:
  11. *:      Documented 09/17/89 at 16:39                SNAP!  version 3.12f
  12. *:*********************************************************************
  13. **  output a line @ 24, centering the text
  14. PARAMETERS msgtxt
  15.  
  16. TmpColor=SYS(2001,'COLOR')
  17. SET COLOR TO W+/B
  18. @ 24,0
  19. DO CASE
  20. CASE  LEN(msgtxt)=0
  21.    **  clear only
  22. CASE  LEN(msgtxt)>79
  23.    @ 24,0 SAY LEFT(msgtxt,79)
  24. OTHERWISE
  25.    @ 24,40-LEN(msgtxt)/2 SAY msgtxt
  26. ENDCASE
  27. SET COLOR TO &TmpColor      && Restore Color
  28. RETURN .T.
  29. *: EOF: MSG24.PRG
  30.